home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs19.d81
/
poster.sda
/
POSTER MAKER
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
36 lines
1 PRINTCHR$(142):IFA=2THENGOTO100
5 PRINT"[147]":POKE53281,0:POKE53280,0:POKE646,1
10 PRINT"INSTALLING ML. PLEASE WAIT.....
15 [129] T[178]51200[164]51240:[135]D:[151]T,D:CK[178]CK[170]D:[130]
30 [131]169,59,141,17,208,169,120,141,24,208,169,198,141,0,221,32,228
35 [131]255,201,32,240,3,76,15,200,169,20,141,24,208,169,11,141,0,221
40 [131]169,27,141,17,208,96
45 [139]A[178]0[167]A[178]1:[147]"MAKER.ML",8,1
50 [153]"LOADDOODLE!/RUNPAINT"
55 [153]"C64 POSTER MAKER"
60 [153]"FOR THE 4023/1526 PRINTER"
61 [153]"BY MUSIC MAN3"
65 [153]"(C)1991 WITCH DOCTOR PRODUCTIONS"
70 [129]T[178]0[164]3000:[130]
71 [153]"LOAD":A[178]1
75 [151]19,3:[133]"FILE NAME (INCLUDE PREFIX): ";P$:[153]
80 [133]"SOURCE DRIVE: ";SD:[151]19,0:[153]
85 [153]"WHEN PICTURE IS DISPLAYED, PRESS <SPACE> TO CONTINUE"
90 [153]:[153]"LOADING "P$
95 [139]A[178]1[167]A[178]2:[147]P$,SD,1
100 [158]51200
105 [153]"LOADPRINT THIS ONE? (Y/N)"
110 [161]K$:[139]K$[178]""[167]110
120 [139]K$[179][177]"Y"[175]K$[179][177]"N"[167]105
125 [139]K$[178]"N"[167][153]"LOAD":[137]150
130 [153]"LOADMAKE SURE PRINTER IS ON AND PAPER IS PROPERLY ALIGNED";
135 [153]" AND THEN PRESS ANY KEY TO BEGIN."
140 [161]K$:[139]K$[178]""[167]140
145 [153]"PRINTING "P$:[158]820
146 [153]"LOADDONE!!!"
150 [153]"LOADPWAITRINT ANOTHER OR QWAITUIT?"
155 [161]K$:[139]K$[178]""[167]155
160 [139]K$[179][177]"P"[175]K$[179][177]"Q"[167]150
165 [139]K$[178]"P"[167][137]71
170 [128]